Software Vault: The Diamond Collection/The Diamond Collection (Software Vault)(Digital Impact).ISO/cdr37/blast201.zip/BLAST.WCX

Wildcat! WCX | 1995-03-15 | 20KB | 1,767 lines

'! Decompiled with wccNosy version 4.20f (freeware)
'! Input File: in.wcx  20277 bytes  01/29/123  04:31:38pm
'! Code Segment Size  :14770 bytes
'! Data Segment Size  :6537 bytes
'! String Segment Size:5507 bytes
'! Compiled with WCC version 4.01

      Type Type26
        Filler0(1 To 6) As Byte
        s6 As String*70
        Filler76(1 To 14) As Byte
        s90 As String*70
        Filler160(1 To 14) As Byte
        s174 As String*70
        Filler244(1 To 20) As Byte
        w264 As Word
      End Type

      Declare Function Func14380(mh65534 As MessageHeader) As Integer

      Dim mh4463 As MessageHeader
      Dim b4783 As Byte
      Dim i4784 As Integer
      Dim s4786 As String
      Dim w4790 As Word
      Dim i4792 As Integer
      Dim i4794 As Integer
      Dim d4798 As Date
      Dim s4800 As String
      Dim s4804 As String
      Dim i4808 As Integer
      Dim s4810 As String
      Dim s4814 As String
      Dim i4818 As Integer
      Dim w4830 As Word
      Dim i4832 As Integer
      Dim i4834 As Integer
      Dim i4836 As Integer
      Dim b4840 As Byte
      Dim b4841 As Byte
      Dim b4842 As Byte
      Dim b4843 As Byte
      Dim i4844 As Integer
      Dim s4846 As String
      Dim cr4882 As ConfRecord
      Dim l5548 As Long
      Dim s5552 As String
      Dim s5556 As String
      Dim s5560 As String
      Dim i5564 As Integer
      Dim i5566 As Integer
      Dim i5568 As Integer
      Dim i5570 As Integer
      Dim s5572 As String
      Dim s5576 As String
      Dim i5580 As Integer
      Dim i5582 As Integer
      Dim i5584 As Integer
      Dim i5586 As Integer
      Dim s5588 As String
      Dim i5592 As Integer
      Dim i5596 As Integer
      Dim s5598 As String
      Dim ur5602 As UserRecord
      Dim s6252 As String
      Dim l6256 As Long
      Dim s6260 As String
      Dim s6264 As String
      Dim s6268 As String
      Dim s6272 As String
      Dim s6276 As String
      Dim i6280 As Integer
      Dim s6282 As String
      Dim sp6286 As SecurityProfile
      Dim d6527 As Date
      Dim i6529 As Integer
      Dim i6531 As Integer
      Dim i6533 As Integer
      Dim i6535 As Integer

      Dim l65474_ As Long
      Dim i65478_ As Integer
      Dim l65480_ As Long
      Dim i65484_ As Integer
      Dim l65486_ As Long
      Dim i65490_ As Integer
      Dim l65492_ As Long
      Dim i65496_ As Integer
      Dim l65498_ As Long
      Dim i65502_ As Integer
      Dim l65504_ As Long
      Dim i65508_ As Integer
      Dim l65510_ As Long
      Dim i65514_ As Integer
      Dim l65516_ As Long
      Dim i65520_ As Integer
      Dim l65522_ As Long
      Dim i65526_ As Integer
      Dim l65528_ As Long
      Dim l65532_ As Long

      If Exists("BLAST.KEY") Then
      Else
   60   i5596 = 0
        GoTo 1613
      End If
   72 Open "BLAST.KEY" For Input As 1
      Input #1, s5588
      Close 1
      If s5588 = "" Then
        i5596 = 0
      Else
  133   i5592 = Len(s5588)
  169   For l6256 = 1 To i5592 Step 1
          If Mid(s5588, l6256, 3) = Chr(34) + "DW" Then
            s6260 = Left(s5588, l6256 - 1)
            l6256 = l6256 - 1
            s5588 = Right(s5588, i5592 - l6256)
            GoTo 351
          End If
  316   Next
  339   i5596 = 0
        GoTo 1238
  351   i5592 = Len(s5588)
        s6264 = Right(s5588, i5592 - 10)
        i6280 = Len(s6260)
        i5582 = 5
        s6282 = ""
  435   For i5584 = 1 To i6280 Step 1
          i5580 = Asc(Mid(s6260, i5584, 1))
          i5586 = i5582 Xor i5580
          s6282 = s6282 + Chr(i5586)
        Next
  565   i6280 = Len(s6282)
  601   For i5584 = 1 To i6280 Step 1
          i5580 = Asc(Mid(s6282, i5584, 1))
          If i5580 < 65 Then
            i5596 = 0
            GoTo 1613
          End If
  700     If i5580 < 91 Then
          Else
  721       If i5580 < 97 Then
              i5596 = 0
              GoTo 1613
            End If
  748       If i5580 < 123 Then
            Else
  769         i5596 = 0
              GoTo 1613
            End If
          End If
  781   Next
  804   i6280 = Len(s6264)
        i5582 = 8
        s5576 = ""
  856   For i5584 = 1 To i6280 Step 1
          i5580 = Asc(Mid(s6264, i5584, 1))
          i5586 = i5582 Xor i5580
          s5576 = s5576 + Chr(i5586)
        Next
  986   i6280 = Len(s5576)
 1022   For i5584 = 1 To i6280 Step 1
          i5580 = Asc(Mid(s5576, i5584, 1))
          If i5580 < 65 Then
            i5596 = 0
            GoTo 1613
          End If
 1121     If i5580 < 91 Then
          Else
 1142       If i5580 < 97 Then
              i5596 = 0
              GoTo 1613
            End If
 1169       If i5580 < 123 Then
            Else
 1190         i5596 = 0
              GoTo 1613
            End If
          End If
 1202   Next
 1225   i5596 = 1
        GoTo 1613
 1238   GoTo 1613
 1244   Color 15, 0
        Cls
        Open s5598 For Input As 5
        Do
 1272     If EOF(5) Then
            Close 5
            GoTo 1345
          End If
 1294     Input #5, s5588
          If EOF(5) Then
            Close 5
            Print s5588
            GoTo 1345
          End If
 1331     Print s5588
        Loop
 1345   Color 1, 3
        Locate 2, 69
        Print "2.01";
        Locate 2, 35
        Print "95";
        Color 15, 1
        Locate 6, 28
        Print "2.01";
        If i5596 = 0 Then
          b4840 = 86
          s4846 = " (C) 1995 Hughes//////Unregistered Copy!"
          GoSub 9140
          Print s4846;
        Else
 1457     b4840 = 10
          s4846 = " Registered To: "
          GoSub 9140
          Print s4846;
          Color 13, 1
          Print s6282 + " " + s5576;
        End If
 1515   Locate 7, 9
        Color 15, 1
        b4840 = 69
        s4846 = "Written By: "
        GoSub 9140
        Print s4846;
        Color 11, 1
        b4840 = 126
        s4846 = "Lawrence R. Hughes"
        GoSub 9140
        Print s4846;
        Color 14, 1
        Print "    [e-mail]";
        Return
      End If
      Do
        Do
          Do
            Do
 1613         If ParamCount = 0 Then
              Else
 1631           i4808 = ParamCount
                Do
 1639             If i4808 <> 3 Then
                    Color 15, 0
                    Cls
                    Print
                    Print " Must Have 3 Command Line Choices!( BLAST.WCX B [Conf #] [Public Y OR N] )"
                    Print " Sample: BLAST.WCX B 0 Y (B=Birthday, 0=Conference #, Y=Public)"
                    Delay 20
                    End
                  End If
 1692             If i5596 = 0 Then
                    Color 15, 0
                    Cls
                    Print
                    Print " Sorry BirthdayBlast! For Registered Versions Only!"
                    Delay 10
                    End
                  End If
 1735             If ParamStr(1) = "B" Or ParamStr(i4808) = "b" Then
                    GoTo 13604
                  End If
 1776             i4808 = 6
                Loop
              End If
 1789         b4840 = 4
              s4846 = "BLAST2.BBS"
              GoSub 9140
              s5598 = s4846
              GoSub 1244
              Locate 14, 33
              Color 14, 1
              Print "Your Selection->";
              Do
                Do
 1848             s5572 = InKey(1213417543)
                  If (s5572 = "") = 0 Then GoTo 1883
                Loop
 1883           If s5572 = "S" Or s5572 = "s" Then
                  Print s5572;
                  GoTo 2130
                End If
 1927           If s5572 = "Q" Or s5572 = "q" Then
                  Print s5572;
                  Color 15, 0
                  Cls
                  End
                End If
 1975           If s5572 = "T" Or s5572 = "t" Then
                  Print s5572;
                  GoTo 3078
                End If
 2019           If s5572 = "E" Or s5572 = "e" Then
                  Print s5572;
                  GoTo 4629
                End If
 2063           If s5572 = "B" Or s5572 = "b" Then
                  Print s5572;
                  GoTo 7026
                End If
 2107           Beep
                Delay 1
              Loop
            Loop
 2130       Color 15, 0
            Cls
            b4840 = 5
            s4846 = "BLAST3.BBS"
            GoSub 9140
            s5598 = s4846
            GoSub 1244
            l5548 = 0
            i6280 = 11
            i5580 = i6280
            Do
              Do
 2198           i5570 = 0
                If GetConfInfo(cr4882, l5548) = -1 Then
                Else
 2232             i5570 = 1
                  GoTo 2382
                End If
 2245           Locate i6280, 9
                Color 11, 1
                Print "[";
                Color 15, 1
                Print l5548;
                Color 11, 1
                Print "] ";
                Color 14, 1
                Print cr4882.Name;
                l5548 = l5548 + 1
                i6280 = i6280 + 1
                If i5580 + 3 = i6280 Then
                  GoTo 2382
                End If
 2376         Loop
 2382         s6252 = ""
              Color 11, 1
              Locate 14, 15
              Print "      Spacebar For More, Q To Quit Or Selection->";
              Do
                Do
                  Do
                    Do
                      Do
 2414                   s5572 = InKey(1213417543)
                        If (s5572 = "") = 0 Then GoTo 2449
                      Loop
 2449                 If s5572 = Chr(32) Then
                        s6252 = ""
                        GoTo 2824
                      End If
 2481                 If s5572 = "q" Or s5572 = "Q" Then
                        l5548 = 0
                        GoTo 1613
                      End If
 2523                 If s5572 = "0" Then
                        l5548 = 0
                        Print s5572;
                        Delay 1
                        GoTo 1613
                      End If
 2568                 s6252 = s6252 + s5572
                      i5592 = Len(s6252)
                      If Right(s6252, 1) = Chr(13) Then
                        s6252 = Left(s6252, i5592 - 1)
                        l6256 = Val(s6252)
                        s6252 = ""
                        l5548 = l6256
                        GoTo 2953
                      End If
 2673                 If (s5572 = Chr(8) And i5592 > 1) = 0 Then GoTo 2767
                      i5592 = i5592 - 1
                      Print s5572;
                      Print " ";
                      Print Chr(8);
                      s6252 = Left(s6252, i5592 - 1)
                    Loop
 2767               If (i5592 = 1 And s5572 = Chr(8)) = 0 Then GoTo 2810
                    s6252 = ""
                  Loop
 2810             Print s5572;
                Loop
 2824           If (i5570 = 1) = 0 Then GoTo 2848
                Beep
              Loop
 2848         i6280 = 11
              Locate 11, 9
              Color 15, 1
              Print "                                        ";
              Locate 12, 9
              Color 15, 1
              Print "                                        ";
              Locate 13, 9
              Color 15, 1
              Print "                                           ";
              Locate 14, 9
              Color 15, 1
              Print "                                         ";
            Loop
 2953       If (l5548 > 0 And i5596 = 0) = 0 Then GoTo 3039
            Beep
            GoSub 3062
            Color 12, 9
            Locate 10, 9
            Print "  Sorry, Unregistered Versions Default To: Conference #0 !!";
            Locate 21, 80
            Delay 6
            Color 15, 0
            Cls
          Loop
 3039     Delay 1
          Color 15, 0
          Cls
        Loop
 3062   s5598 = "BLAST3.BBS"
        GoSub 1244
        Return
 3078   Color 15, 0
        Cls
        b4840 = 2
        s4846 = "BLAST4.BBS"
        GoSub 9140
        s5598 = s4846
        GoSub 1244
        Locate 9, 9
        Color 11, 1
        Print "[";
        Color 14, 1
        Print "A";
        Color 11, 1
        Print "]";
        Color 14, 1
        Print " Broadcasts To: First & Last Names Of All Users.";
        Locate 10, 9
        Color 11, 1
        Print "[";
        Color 14, 1
        Print "B";
        Color 11, 1
        Print "]";
        Color 14, 1
        Print " Broadcasts To: FullNames @ Selected Security Level.";
        Locate 11, 9
        Color 11, 1
        Print "[";
        Color 14, 1
        Print "C";
        Color 11, 1
        Print "]";
        Color 14, 1
        Print " Broadcasts To: Selected Gender.";
        Locate 12, 9
        Color 11, 1
        Print "[";
        Color 14, 1
        Print "D";
        Color 11, 1
        Print "]";
        Color 14, 1
        Print " Broadcasts To: Telephone Area Codes.";
        Locate 13, 9
        Color 11, 1
        Print "[";
        Color 14, 1
        Print "E";
        Color 11, 1
        Print "]";
        Color 14, 1
        Print " Broadcasts To: Selected Age Groups.";
        s6252 = ""
        Color 11, 1
        Locate 14, 15
        Print "     Q To Quit Or Selection->";
        Do
          Do
 3510       s5572 = InKey(1213417543)
            If (s5572 = "") = 0 Then GoTo 3545
          Loop
 3545     If s5572 = "q" Or s5572 = "Q" Then
            GoTo 1613
          End If
 3581     If s5572 = "a" Or s5572 = "A" Then
            i5568 = 0
            GoTo 3804
          End If
 3623     If s5572 = "b" Or s5572 = "B" Then
            i5568 = 1
            GoTo 3883
          End If
 3666     If s5572 = "c" Or s5572 = "C" Then
            i5568 = 2
            GoTo 9382
          End If
 3709     If s5572 = "d" Or s5572 = "D" Then
            i5568 = 3
            GoTo 10739
          End If
 3752     If s5572 = "e" Or s5572 = "E" Then
            i5568 = 5
            GoTo 11828
          End If
 3795     Beep
        Loop
 3804   Color 15, 0
        Cls
        s5598 = "BLAST4.BBS"
        GoSub 1244
        Locate 11, 9
        Print "MasterBlaster!";
        Color 11, 1
        Print " Will Broadcast To All Users In Selected Conf.!";
        Delay 5
        Color 15, 0
        Cls
      Loop
      Do
 3883   s4814 = s4810
        i5592 = 0
        s6252 = ""
        If i5596 = 0 Then
          i5568 = 0
          Beep
          Color 15, 0
          Cls
          s5598 = "BLAST4.BBS"
          GoSub 1244
          Color 12, 9
          Locate 10, 9
          Print "             Sorry, Registered Versions Only!!!";
          Locate 21, 80
          Delay 4
          GoTo 3078
        End If
 3997   i5568 = 1
        Color 15, 0
        Cls
        s5598 = "BLAST4.BBS"
        GoSub 1244
        Locate 11, 9
        Color 14, 1
        Print "Wc4.x Security Profile Name";
        Color 15, 1
        Print "(Q=Quit)";
        Color 14, 1
        Print "->";
        Do
 4083     s5572 = InKey(1213417543)
          If (s5572 = "") = 0 Then GoTo 4118
        Loop
 4118   If s5572 = "q" Or s5572 = "Q" Then
          GoTo 4391
        End If
        Do
 4154     s6252 = s6252 + s5572
          i5592 = Len(s6252)
          If Right(s6252, 1) = Chr(13) Then
            s6252 = Left(s6252, i5592 - 1)
            l6256 = Val(s6252)
            GoTo 4443
          End If
 4240     If s5572 = Chr(8) And i5592 > 1 Then
            i5592 = i5592 - 1
            Print s5572;
            Print " ";
            Print Chr(8);
            s6252 = Left(s6252, i5592 - 1)
            GoTo 4083
          End If
 4334     If i5592 = 1 And s5572 = Chr(8) Then
            s6252 = ""
            GoTo 4083
          End If
 4377     Print s5572;
          GoTo 4083
 4391     If s6252 = "" Then
            Color 15, 0
            Cls
            s4810 = s4814
            GoTo 3078
            GoTo 4443
          End If
 4437   Loop
 4443   s4810 = s6252
        s6252 = ""
        If GetSecProfile(sp6286, s4810) = -1 Then
          Locate 11, 9
          Print "MasterBlaster!";
          Color 11, 1
          Print " Will Broadcast To All Users                  ";
          Locate 12, 24
          Print "With Profile Name:";
          Color 15, 1
          Print s4810;
          Delay 2
          Color 15, 0
          Cls
          GoTo 1613
        End If
 4567   Beep
        Locate 11, 9
        Color 11, 9
        Print "Could Not Locate Security Profile Name:                 ";
        Color 14, 1
        Locate 12, 49
        Print s4810;
        Delay 3
      Loop
      Do
        Do
 4629     Color 15, 0
          Cls
          s5598 = "BLAST5.BBS"
          GoSub 1244
          s6268 = User.Alias
          If Asc(Left(s6268, 1)) = 0 Then
            s6268 = User.Name
          End If
 4703     Locate 11, 9
          Color 14, 0
          If i5568 = 2 Then
            Print "     To:>[ First & Last Name Of All Users In Selected Gender! ]";
          Else
 4746       If i5568 = 3 Then
              Print "     To:>[ First & Last Name Of All Users In Selected Area Code ]";
            Else
 4776         If i5568 = 4 Then
                Print "     To:>[ Name Of Users With Selected Area Code & Gender! ]";
              Else
 4806           If s4810 = "" Then
                  Print "     To:>[ First & Last Name Of All Users! ]";
                Else
 4838             If i5568 = 1 Then
                    Print "     To:>[ First & Last Name Of All Users In Selected Profile! ]";
                  Else
 4868               If i5568 = 5 Then
                      Print "     To:>[ Name Of All Users In Selected Age Group! ]";
                    Else
 4898                 If i5568 = 6 Then
                        Print "     To:>[ Name Of All Users In Selected Age Group & Gender! ]";
                      End If
                    End If
                  End If
                End If
              End If
            End If
          End If
 4922     Locate 12, 9
          Color 14, 0
          Print "   From:>[ ";
          Print s6268;
          Print " ]";
          If i6280 = 1 Then
          Else
 4982       Locate 13, 9
            s6276 = InputMask("Subject:>", "XXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
            If s6276 = "" Then
              Color 15, 0
              Cls
              GoTo 1613
            End If
 5048       i6280 = 1
          End If
 5055     Locate 15, 9
          Print "Subject:>[ "; s6276;
          Print " ]";
          Locate 16, 9
          If InputYesNo("Correct[y/n]?", 1213417543) = -1 Then
            GoTo 5135
          End If
 5123     i6280 = 0
        Loop
 5135   If i4784 = 1 Then
        Else
 5156     Color 15, 0
          Cls
          s5598 = "BLAST6.BBS"
          GoSub 1244
          Color 14, 0
          Open "BLASTER.TXT" For Output As 1
          i4794 = 1
          Locate 10, 1
          If i5596 = 0 Then
            GoTo 6604
          End If
 5240
 5261     For i5592 = 1 To 147 Step 1
            Locate i5592 + 10, 1
            If i5592 > 10 And i5592 < 21 Then
              i5566 = i5592
              GoSub 6904
              Locate i5592, 1
            End If
 5377       If i5592 > 20 And i5592 < 31 Then
              i5566 = i5592 - 10
              GoSub 6904
              Locate i5592 - 10, 1
            End If
 5437       If i5592 > 30 And i5592 < 41 Then
              i5566 = i5592 - 20
              GoSub 6904
              Locate i5592 - 20, 1
            End If
 5497       If i5592 > 40 And i5592 < 51 Then
              i5566 = i5592 - 30
              GoSub 6904
              Locate i5592 - 30, 1
            End If
 5557       If i5592 > 50 And i5592 < 61 Then
              i5566 = i5592 - 40
              GoSub 6904
              Locate i5592 - 40, 1
            End If
 5617       If i5592 > 60 And i5592 < 71 Then
              i5566 = i5592 - 50
              GoSub 6904
              Locate i5592 - 50, 1
            End If
 5677       If i5592 > 70 And i5592 < 81 Then
              i5566 = i5592 - 60
              GoSub 6904
              Locate i5592 - 60, 1
            End If
 5737       If i5592 > 80 And i5592 < 91 Then
              i5566 = i5592 - 70
              GoSub 6904
              Locate i5592 - 70, 1
            End If
 5797       If i5592 > 90 And i5592 < 101 Then
              i5566 = i5592 - 80
              GoSub 6904
              Locate i5592 - 80, 1
            End If
 5857       If i5592 > 100 And i5592 < 111 Then
              i5566 = i5592 - 90
              GoSub 6904
              Locate i5592 - 90, 1
            End If
 5917       If i5592 > 110 And i5592 < 121 Then
              i5566 = i5592 - 100
              GoSub 6904
              Locate i5592 - 100, 1
            End If
 5977       If i5592 > 120 And i5592 < 131 Then
              i5566 = i5592 - 110
              GoSub 6904
              Locate i5592 - 110, 1
            End If
 6037       If i5592 > 130 And i5592 < 141 Then
              i5566 = i5592 - 120
              GoSub 6904
              Locate i5592 - 120, 1
            End If
 6097       If i5592 > 140 And i5592 < 151 Then
              i5566 = i5592 - 130
              GoSub 6904
              Locate i5592 - 130, 1
            End If
 6157       Color 15, 0
            Print i5592;
            Print ":";
            Color 14, 0
            Input s5588
            If s5588 = "" Then
              GoTo 6287
            End If
 6216       If i5592 = 1 And Left(s5588, 2) = "<<" Then
              GoTo 13403
            End If
 6255       Print #1, s5588
          Next
          Do
 6287       s6252 = ""
            Print #1, s6252
            b4840 = 49
            s4846 = "@0E@MasterBlaster! Ver:2.01 By: Hughes Technologies, Inc."
            GoSub 9140
            s6252 = s4846
            Print #1, s6252
            If i5596 = 0 Then
              b4840 = 16
              s4846 = "Blasted This Message! Unregistered Copy!!"
              GoSub 9140
              s6252 = s4846
            Else
 6394         b4840 = 15
              s4846 = "Blasted This Message! Registered To: "
              GoSub 9140
              s6252 = s4846 + s6282 + " " + s5576
            End If
 6443       Print #1, s6252
            Close 1
            Color 15, 0
            Cls
            s5598 = "BLAST5.BBS"
            GoSub 1244
            If i5596 = 0 Then
              Color 14, 1
              Locate 9, 9
              Beep
              Print "Unregistered Copy! Max 2 Lines!";
            End If
 6521       If i5596 = 0 Then
              Color 14, 1
              Locate 10, 9
              Print "Registered Versions Max 147 Lines!";
            End If
 6558       Color 14, 1
            Locate 11, 9
            Beep
            Print "Your Message Has Been Saved!";
            Color 15, 1
            Locate 13, 9
            GoTo 6824
 6604
 6625       For i5592 = 1 To 2 Step 1
              Locate i5592 + 10, 1
              Color 15, 0
              Print i5592;
              Print ":";
              Color 14, 0
              Input s5588
              If s5588 = "" Then
                GoTo 6287
              End If
 6748         Print #1, s5588
            Next
 6780     Loop
        End If
 6786   Color 15, 0
        Cls
        s5598 = "BLAST5.BBS"
        GoSub 1244
        Color 15, 1
        Locate 13, 9
 6824   If InputYesNo("Is This A Public Only Conference[y/n]?", 1213417543) = -1 Then
          s5560 = "Y"
        Else
 6863     s5560 = "no"
          GoTo 6878
        End If
 6878   If i4784 = 0 Then
          GoTo 1613
        End If
 6898   GoTo 7026
 6904
 6928   For i5564 = i5566 To 20 Step 1
          Locate i5564, 1
          Print String(80, " ");
        Next
 7025   Return
 7026   If i4794 = 1 Then
          GoTo 7053
        End If
 7047 Loop
 7053 Color 15, 0
      Cls
      s5598 = "BLAST5.BBS"
      GoSub 1244
      Locate 9, 9
      Color 14, 1
      Print " User Selected =";
      Color 10, 1
      Print " Green";
      Color 14, 1
      Print " / Non Selected =";
      Color 12, 1
      Print " Red";
      Open "BLA.DAT" For Output As 3
      s4810 = UCase(s4810)
 7191 If GetNextUser(ur5602, 1213417543) Then
      Else
 7214   Close 3
        Func14380(mh4463)
        GoTo 9997
      End If
 7235 s5552 = ur5602.PhoneNumber
      If i5568 = 1 And s4810 = ur5602.SecLevel Then
        GoTo 8418
      End If
 7288 If i5568 = 2 And b4783 = ur5602.Sex Then
        GoTo 8418
      End If
 7328 If i5568 = 0 Then
        GoTo 8418
      End If
 7348 If i5568 = 3 And s4786 = Left(s5552, 3) Then
        GoTo 8418
      End If
 7386 If i5568 = 4 And s4786 = Left(s5552, 3) Then
        GoTo 8922
      End If
 7424 If i5568 = 5 Then
        GoTo 7692
      End If
 7445 If i5568 = 6 Then
        GoTo 7692
      End If
 7466 If i5568 = 8 Then
        GoTo 14120
      End If
      Do
        Do
          Do
            Do
              Do
                Do
                  Do
                    Do
                      Do
 7487                   Locate 11, 9
                        Print "                                                               ";
                        s4800 = ur5602.Alias
                        If Asc(Left(s4800, 1)) = 0 Then
                          s4800 = ur5602.Name
                        End If
 7553                   Color 15, 1
                        i4818 = Len(s4800)
                        If i4818 < 25 Then
                          s4804 = s4800 + String(25 - i4818, 32)
                        Else
 7617                     s4804 = s4800
                        End If
 7625                   Locate 11, 9
                        Color 15, 1
                        Print " User: ";
                        Color 12, 0
                        Print s4804;
                        Color 15, 1
                        Print ", Please Wait! Still Searching!";
                        Delay 0.1
                        GoTo 7191
 7692                   CurrentDate d4798
                        w4790 = Val(FormatDate(d4798, "mm"))
                        i4792 = Val(FormatDate(d4798, "yy"))
                        If s5556 = "A" Or s5556 = "a" Then
                          i4832 = 12
                        End If
 7773                   If s5556 = "B" Or s5556 = "b" Then
                          i4832 = 17
                        End If
 7810                   If s5556 = "C" Or s5556 = "c" Then
                          i4832 = 20
                        End If
 7847                   If s5556 = "D" Or s5556 = "d" Then
                          i4832 = 64
                        End If
 7884                   If s5556 = "E" Or s5556 = "e" Then
                          i4832 = 120
                        End If
 7921                   w4830 = i4792 - i4832
                        i4834 = Val(FormatDate(ur5602.BirthDate, "yy"))
                        If s5556 = "A" Or s5556 = "a" Then
                        Else
 7998                     If s5556 = "B" Or s5556 = "b" Then
                            GoTo 8176
                          End If
 8034                     If s5556 = "C" Or s5556 = "c" Then
                            GoTo 8238
                          End If
 8070                     If s5556 = "D" Or s5556 = "d" Then
                            GoTo 8300
                          End If
 8106                     If s5556 = "E" Or s5556 = "e" Then
                            GoTo 8362
                          End If
                        End If
 8142                   If (i4792 - i4834 > 12) = 0 Then GoTo 8170
                      Loop
 8170                 GoTo 8418
 8176                 If (i4792 - i4834 > 17) = 0 Then GoTo 8204
                    Loop
 8204               If (i4792 - i4834 < 13) = 0 Then GoTo 8232
                  Loop
 8232             GoTo 8418
 8238             If (i4792 - i4834 > 20) = 0 Then GoTo 8266
                Loop
 8266           If (i4792 - i4834 < 18) = 0 Then GoTo 8294
              Loop
 8294         GoTo 8418
 8300         If (i4792 - i4834 > 64) = 0 Then GoTo 8328
            Loop
 8328       If (i4792 - i4834 < 21) = 0 Then GoTo 8356
          Loop
 8356     GoTo 8418
 8362     If i4792 - i4834 > 64 Then
            GoTo 8418
          End If
 8390     If (i4792 - i4834 < 65) = 0 Then GoTo 8418
        Loop
        Do
          Do
 8418       If i5568 = 0 Then
            Else
 8438         If i5568 = 6 Then
                GoTo 8673
              End If
              Do
 8459           Locate 11, 9
                Print "                                                               ";
                s4800 = ur5602.Alias
                If Asc(Left(s4800, 1)) = 0 Then
                  s4800 = ur5602.Name
                End If
 8525           Print #3, s4800
                Color 15, 1
                i4818 = Len(s4800)
                If i4818 < 25 Then
                  s4804 = s4800 + String(25 - i4818, 32)
                Else
 8598             s4804 = s4800
                End If
 8606           Locate 11, 9
                Color 15, 1
                Print " User: ";
                Color 10, 0
                Print s4804;
                Color 15, 1
                Print ", Please Wait! Still Searching!";
                Delay 0.1
                GoTo 7191
 8673           If (b4783 = ur5602.Sex) = 0 Then GoTo 8702
              Loop
 8702         GoTo 7487
            End If
 8708       Locate 11, 9
            Print "                                                               ";
            s4800 = ur5602.Alias
            If Asc(Left(s4800, 1)) = 0 Then
              s4800 = ur5602.Name
            End If
 8774       Print #3, s4800
            Color 15, 1
            i4818 = Len(s4800)
            If i4818 < 25 Then
              s4804 = s4800 + String(25 - i4818, 32)
            Else
 8847         s4804 = s4800
            End If
 8855       Locate 11, 9
            Color 15, 1
            Print " User: ";
            Color 10, 0
            Print s4804;
            Color 15, 1
            Print ", Please Wait! Still Searching!";
            Delay 0.1
            GoTo 7191
 8922       If (b4783 = ur5602.Sex) = 0 Then GoTo 8951
          Loop
 8951     GoTo 7487
          i4844 = Len(s4846)
          b4843 = 3
 9000     For i5592 = 1 To i4844 Step 1
            b4841 = Asc(Mid(s4846, i5592, 1))
            b4842 = b4841 Xor b4843
            b4843 = b4842
          Next
 9122     Print b4843
          Delay 10
          End
 9140     i4844 = Len(s4846)
          b4843 = 3
 9183     For i5592 = 1 To i4844 Step 1
            b4841 = Asc(Mid(s4846, i5592, 1))
            b4842 = b4841 Xor b4843
            b4843 = b4842
          Next
 9305     If b4840 = b4843 Then
            Return
          End If
 9324     GoTo 9330
 9330     Color 15, 0
          Cls
          Print
          Print ur5602.Name;
          Print " This Program Has Been Tampered With!"
          Print "You wouldn't know anything about that would you ?"
          Delay 5
          End
 9382     s4814 = s4810
          If i5596 = 0 Then
            i5568 = 0
            Beep
            Color 15, 0
            Cls
            s5598 = "BLAST4.BBS"
            GoSub 1244
            Color 12, 9
            Locate 10, 9
            Print "             Sorry, Registered Versions Only!!!";
            Locate 21, 80
            Delay 4
            GoTo 3078
          End If
          Do
            Do
 9481         i5568 = 2
              Color 15, 0
              Cls
              s5598 = "BLAST4.BBS"
              GoSub 1244
              Locate 11, 9
              Color 14, 1
              Print " Enter Gender: (1=Male 2=Female Q=Quit)";
              Color 14, 1
              Print "->";
              Do
 9551           s5572 = InKey(1213417543)
                If (s5572 = "") = 0 Then GoTo 9586
              Loop
 9586         If s5572 = "q" Or s5572 = "Q" Then
                GoTo 9764
              End If
 9622         If s5572 = "1" Then
                b4783 = 1
                GoTo 9787
              End If
 9652         If s5572 = "2" Then
                b4783 = 2
                GoTo 9787
              End If
 9682         Color 15, 0
              Cls
              s5598 = "BLAST4.BBS"
              GoSub 1244
              Beep
              Beep
              Locate 11, 9
              Color 11, 9
              Print "Could Not Locate Gender Type: ";
              Color 14, 1
              Print s5572;
              Delay 3
            Loop
 9764       Color 15, 0
            Cls
            s4810 = s4814
            GoTo 3078
 9787       Color 15, 0
            Cls
            s5598 = "BLAST4.BBS"
            GoSub 1244
            If b4783 = 2 Then
              Locate 11, 9
              Print "MasterBlaster!";
              Color 11, 1
              Print " Will Broadcast To All Users                  ";
              Locate 12, 24
              Print "With Gender Type: FEMALE";
              Color 15, 1
              Delay 2
              Color 15, 0
              Cls
              GoTo 1613
            End If
 9904       If b4783 = 1 Then
              Locate 11, 9
              Print "MasterBlaster!";
              Color 11, 1
              Print " Will Broadcast To All Users                  ";
              Locate 12, 24
              Print "With Gender Type: MALE";
              Color 15, 1
              Delay 2
              Color 15, 0
              Cls
              GoTo 1613
            End If
 9997       If i5568 = 8 Then
              Color 15, 0
              Cls
              End
            End If
10022       GoTo 10028
10028       Color 15, 0
            Cls
            b4840 = 2
            s4846 = "BLAST4.BBS"
            GoSub 9140
            s5598 = s4846
            GoSub 1244
            Locate 9, 9
            Color 11, 1
            Print "[";
            Color 14, 1
            Print "A";
            Color 11, 1
            Print "]";
            Color 14, 1
            Print " Broadcasts To: First & Last Names Of All Users.";
            Locate 10, 9
            Color 11, 1
            Print "[";
            Color 14, 1
            Print "B";
            Color 11, 1
            Print "]";
            Color 14, 1
            Print " Broadcasts To: FullNames @ Selected Security Level.";
            Locate 11, 9
            Color 11, 1
            Print "[";
            Color 14, 1
            Print "C";
            Color 11, 1
            Print "]";
            Color 14, 1
            Print " Broadcasts To: Selected Gender.";
            Locate 12, 9
            Color 11, 1
            Print "[";
            Color 14, 1
            Print "D";
            Color 11, 1
            Print "]";
            Color 14, 1
            Print " Broadcasts To: Telephone Area Codes.";
            Locate 13, 9
            Color 11, 1
            Print "[";
            Color 14, 1
            Print "E";
            Color 11, 1
            Print "]";
            Color 14, 1
            Print " Broadcasts To: Selected Age Groups.";
            s6252 = ""
            Color 11, 1
            Locate 14, 15
            Print " Another Broadcast Q To Quit Or Selection->";
            Do
              Do
10460           i4784 = 1
                s4810 = ""
                b4783 = 0
                i5568 = 0
                s5572 = InKey(1213417543)
                If (s5572 = "") = 0 Then GoTo 10523
              Loop
10523         If s5572 = "q" Or s5572 = "Q" Then
                GoTo 1613
              End If
10559         If s5572 = "a" Or s5572 = "A" Then
                i5568 = 0
                GoTo 3804
              End If
10601         If s5572 = "b" Or s5572 = "B" Then
                i5568 = 1
                GoTo 3883
              End If
10644         If s5572 = "c" Or s5572 = "C" Then
                i5568 = 2
                GoTo 9382
              End If
10687         If s5572 = "d" Or s5572 = "D" Then
                i5568 = 3
                GoTo 10739
              End If
10730         Beep
            Loop
10739       s4814 = s4810
            If i5596 = 0 Then
              i5568 = 0
              Beep
              Color 15, 0
              Cls
              s5598 = "BLAST4.BBS"
              GoSub 1244
              Color 12, 9
              Locate 10, 9
              Print "             Sorry, Registered Versions Only!!!";
              Locate 21, 80
              Delay 4
              GoTo 3078
            End If
10838       i5568 = 3
            Color 15, 0
            Cls
            s5598 = "BLAST4.BBS"
            GoSub 1244
            Locate 11, 9
            s4786 = InputMask("Area Code(xxx)->", "XXX", "", 1213417543)
            If Val(Left(s4786, 1)) = 0 Then
              GoTo 11157
            End If
10930       If Val(Left(s4786, 1)) > 9 Then
              GoTo 11157
            End If
10958       Locate 13, 9
            If InputYesNo("SeLect Gender [y/n]?", 1213417543) = -1 Then
              i5568 = 4
              GoTo 11304
            End If
11002       b4783 = 0
            GoTo 11180
            If Val(Left(s4786, 1)) < 0 Then
              GoTo 11157
            End If
11041       If Val(Left(s4786, 1)) > 9 Then
              GoTo 11157
            End If
11069       GoTo 11180
            Color 15, 0
            Cls
            s5598 = "BLAST4.BBS"
            GoSub 1244
            Beep
            Beep
            Locate 11, 9
            Color 11, 9
            Print "Could Not Locate Gender Type: ";
            Color 14, 1
            Print s5572;
            Delay 3
          Loop
11157     Color 15, 0
          Cls
          s4810 = s4814
          GoTo 3078
11180     Color 15, 0
          Cls
          s5598 = "BLAST4.BBS"
          GoSub 1244
          Locate 11, 9
          Print "MasterBlaster!";
          Color 11, 1
          Print " Will Broadcast To All Users                  ";
          Locate 12, 24
          Print "With Area Code (";
          Print Left(s4786, 3);
          Print ")";
          Color 15, 1
          Delay 2
          Color 15, 0
          Cls
          GoTo 1613
          Do
11304       Color 15, 0
            Cls
            s5598 = "BLAST4.BBS"
            GoSub 1244
            Locate 11, 9
            Color 14, 1
            Print " Enter Gender: (1=Male 2=Female Q=Quit)";
            Color 14, 1
            Print "->";
            Do
11367         s5572 = InKey(1213417543)
              If (s5572 = "") = 0 Then GoTo 11402
            Loop
11402       If s5572 = "q" Or s5572 = "Q" Then
              GoTo 11157
            End If
11438       If s5572 = "1" Then
              b4783 = 1
              GoTo 11704
            End If
11468       If s5572 = "2" Then
              b4783 = 2
              GoTo 11580
            End If
11498       Color 15, 0
            Cls
            s5598 = "BLAST4.BBS"
            GoSub 1244
            Beep
            Beep
            Locate 11, 9
            Color 11, 9
            Print "Could Not Locate Gender Type: ";
            Color 14, 1
            Print s5572;
            Delay 3
          Loop
11580     Color 15, 0
          Cls
          s5598 = "BLAST4.BBS"
          GoSub 1244
          Locate 11, 9
          Print "MasterBlaster!";
          Color 11, 1
          Print " Will Broadcast To All Female Users   ";
          Locate 12, 24
          Print "With Area Code (";
          Print Left(s4786, 3);
          Print ")";
          Color 15, 1
          Delay 2
          Color 15, 0
          Cls
          GoTo 1613
11704     Color 15, 0
          Cls
          s5598 = "BLAST4.BBS"
          GoSub 1244
          Locate 11, 9
          Print "MasterBlaster!";
          Color 11, 1
          Print " Will Broadcast To All Male Users     ";
          Locate 12, 24
          Print "With Area Code (";
          Print Left(s4786, 3);
          Print ")";
          Color 15, 1
          Delay 2
          Color 15, 0
          Cls
          GoTo 1613
11828     s4814 = s4810
          If i5596 = 0 Then
            i5568 = 0
            Beep
            Color 15, 0
            Cls
            s5598 = "BLAST4.BBS"
            GoSub 1244
            Color 12, 9
            Locate 10, 9
            Print "             Sorry, Registered Versions Only!!!";
            Locate 21, 80
            Delay 4
            GoTo 3078
          End If
11927     i5568 = 5
          Color 15, 0
          Cls
          s5598 = "BLAST4.BBS"
          GoSub 1244
          Locate 9, 9
          Color 15, 1
          Print "                                                ";
          Locate 9, 9
          Color 11, 1
          Print "[";
          Color 14, 1
          Print "A";
          Color 11, 1
          Print "]";
          Color 14, 1
          Print "  Age Group  1 - 12";
          Locate 10, 9
          Color 11, 1
          Print "[";
          Color 14, 1
          Print "B";
          Color 11, 1
          Print "]";
          Color 14, 1
          Print "  Age Group 13 - 17";
          Locate 11, 9
          Color 11, 1
          Print "[";
          Color 14, 1
          Print "C";
          Color 11, 1
          Print "]";
          Color 14, 1
          Print "  Age Group 18 - 20";
          Locate 12, 9
          Color 11, 1
          Print "[";
          Color 14, 1
          Print "D";
          Color 11, 1
          Print "]";
          Color 14, 1
          Print "  Age Group 21 - 64";
          Locate 13, 9
          Color 11, 1
          Print "[";
          Color 14, 1
          Print "E";
          Color 11, 1
          Print "]";
          Color 14, 1
          Print "  Age Group 65 - Up";
          s6252 = ""
          Color 11, 1
          Locate 14, 15
          Print "     Q To Quit Or Selection->";
          Do
            Do
12368         s5572 = InKey(1213417543)
              If (s5572 = "") = 0 Then GoTo 12403
            Loop
12403       If s5572 = "q" Or s5572 = "Q" Then
              GoTo 1613
            End If
12439       If s5572 = "a" Or s5572 = "A" Then
              GoTo 12628
            End If
12475       If s5572 = "b" Or s5572 = "B" Then
              GoTo 12628
            End If
12511       If s5572 = "c" Or s5572 = "C" Then
              GoTo 12628
            End If
12547       If s5572 = "d" Or s5572 = "D" Then
              GoTo 12628
            End If
12583       If s5572 = "e" Or s5572 = "E" Then
              GoTo 12628
            End If
12619       Beep
          Loop
          Do
12628       s5556 = s5572
            Color 15, 0
            Cls
            s5598 = "BLAST4.BBS"
            GoSub 1244
            Locate 13, 9
            If InputYesNo("SeLect Gender [y/n]?", 1213417543) = -1 Then
              i5568 = 6
              GoTo 12923
            End If
12704       b4783 = 0
            GoTo 12821
            Color 15, 0
            Cls
            s5598 = "BLAST4.BBS"
            GoSub 1244
            Beep
            Beep
            Locate 11, 9
            Color 11, 9
            Print "Could Not Locate Gender Type: ";
            Color 14, 1
            Print s5572;
            Delay 3
          Loop
12798     Color 15, 0
          Cls
          s4810 = s4814
          GoTo 3078
12821     Color 15, 0
          Cls
          s5598 = "BLAST4.BBS"
          GoSub 1244
          Locate 11, 9
          Print "MasterBlaster!";
          Color 11, 1
          Print " Will Broadcast To All Users                  ";
          Locate 12, 24
          Print "In Selected Age Group!";
          Color 15, 1
          Delay 2
          Color 15, 0
          Cls
          GoTo 1613
          Do
12923       Color 15, 0
            Cls
            s5598 = "BLAST4.BBS"
            GoSub 1244
            Locate 11, 9
            Color 14, 1
            Print " Enter Gender: (1=Male 2=Female Q=Quit)";
            Color 14, 1
            Print "->";
            Do
12986         s5572 = InKey(1213417543)
              If (s5572 = "") = 0 Then GoTo 13021
            Loop
13021       If s5572 = "q" Or s5572 = "Q" Then
              GoTo 12798
            End If
13057       If s5572 = "1" Then
              b4783 = 1
              GoTo 13301
            End If
13087       If s5572 = "2" Then
              b4783 = 2
              GoTo 13199
            End If
13117       Color 15, 0
            Cls
            s5598 = "BLAST4.BBS"
            GoSub 1244
            Beep
            Beep
            Locate 11, 9
            Color 11, 9
            Print "Could Not Locate Gender Type: ";
            Color 14, 1
            Print s5572;
            Delay 3
          Loop
13199     Color 15, 0
          Cls
          s5598 = "BLAST4.BBS"
          GoSub 1244
          Locate 11, 9
          Print "MasterBlaster!";
          Color 11, 1
          Print " Will Broadcast To All Female Users   ";
          Locate 12, 24
          Print "In Selected Age Group!";
          Color 15, 1
          Delay 2
          Color 15, 0
          Cls
          GoTo 1613
13301     Color 15, 0
          Cls
          s5598 = "BLAST4.BBS"
          GoSub 1244
          Locate 11, 9
          Print "MasterBlaster!";
          Color 11, 1
          Print " Will Broadcast To All Male Users     ";
          Locate 12, 24
          Print "In Selected Age Group!";
          Color 15, 1
          Delay 2
          Color 15, 0
          Cls
          GoTo 1613
13403     i4836 = Len(s5588)
          If i4836 = 2 Then
            GoTo 6255
          End If
13436     If i5596 = 0 Then
            GoTo 6255
          End If
13456     s5598 = Right(s5588, i4836 - 2)
          If Exists(s5598) Then
          Else
13495       GoTo 6255
          End If
13501     Open s5598 For Input As 7
          Do
13520       If EOF(7) Then
              Close 7
              GoTo 6287
            End If
13542       Input #7, s5588
            i5592 = i5592 + 1
            Print #1, s5588
            If i5592 = 147 Then
              Close 7
              GoTo 6287
            End If
13598     Loop
13604     l5548 = Val(ParamStr(2))
          s5560 = ParamStr(3)
          If s5560 = "y" Or s5560 = "Y" Then
          Else
13662       If s5560 = "n" Or s5560 = "N" Then
              s5560 = "no"
            Else
13707         Color 15, 0
              Cls
              Print
              Print " Must Have 3 Command Line Choices!( BLAST.WCX B [Conf #] [Public Y OR N] )"
              Print " Sample: BLAST.WCX B 0 Y (B=Birthday, 0=Conference #, Y=Public)"
              Delay 20
              End
            End If
          End If
13745     If Exists("BIRTHDAY.BLS") Then
          Else
13765       Cls
            Print
            Print "Note: Birthday.BLS Is Missing!"
            Beep
            Beep
            Beep
            Delay 10
            Color 15, 0
            Cls
            End
          End If
13806     Open "BIRTHDAY.BLS" For Input As 8
          Do
13826       If EOF(8) Then
              Close 8
              GoTo 13894
            End If
13848       Input #8, s5588
            If Left(s5588, 5) = "@0E@M" Then
              Close 8
              GoTo 14084
            End If
13888     Loop
13894     Open "BIRTHDAY.BLS" For Append As 1
          s6252 = ""
          Print #1, s6252
          b4840 = 68
          s4846 = "@0E@MasterBlaster! (BETA) By: Hughes Technologies, Inc."
          GoSub 9140
          s6252 = s4846
          Print #1, s6252
          If i5596 = 0 Then
            b4840 = 16
            s4846 = "Blasted This Message! Unregistered Copy!!"
            GoSub 9140
            s6252 = s4846
            GoTo 6443
          End If
14021     b4840 = 15
          s4846 = "Blasted This Message! Registered To: "
          GoSub 9140
          s6252 = s4846 + s6282 + " " + s5576
          Print #1, s6252
          Close 1
14084     s6276 = "Happy Birthday"
          s6268 = MakeWild.BBSName
          i5568 = 8
          GoTo 7053
14120     CurrentDate d6527
          i6529 = Val(FormatDate(d6527, "mm"))
          i6531 = Val(FormatDate(d6527, "dd"))
          i6535 = Val(FormatDate(ur5602.BirthDate, "mm"))
          i6533 = Val(FormatDate(ur5602.BirthDate, "dd"))
          If (i6535 = i6529 And i6531 = i6533) = 0 Then GoTo 14250
        Loop
14250 Loop

'! Called 1 time
      Function Func14380(mh65534 As MessageHeader) As Integer
        Func14380 = 0
        Open "BLA.Dat" For Input As 4
        Do
14415     If EOF(4) Then
            Close 4
            GoTo 14762
          End If
14437     Input #4, s6272
          i4818 = Len(s6272)
          If i4818 < 25 Then
            s4804 = s6272 + String(25 - i4818, 32)
          Else
14501       s4804 = s6272
          End If
14509     Color 15, 1
          Locate 11, 9
          Print String(64, 32);
          Locate 11, 9
          Print " Blasting Mail To: ";
          Color 10, 0
          Print s4804;
          Color 15, 1
          Print ", Still Searching!";
          Delay 0.1
          mh65534.To = s6272
          mh65534.From = s6268
          mh65534.Subject = s6276
          If s5560 = "y" Or s5560 = "Y" Then
          Else
14672       mh65534.Flags = 1
          End If
14686     Func14380 = -1
          If i5568 = 8 Then
            s6252 = "BIRTHDAY.BLS"
          Else
14724       s6252 = "BLASTER.TXT"
          End If
14733     AddMessage(mh65534, s6252, "", l5548)
        Loop
14762
      End Function